LISP.INI[F81,JMC]2 - www.SailDart.org

perm filename LISP.INI[F81,JMC]2 blob sn#624258 filedate 1981-11-14 generic text, type T, neo UTF8

(COMMENT BPS 16500. LIST 40000 SPECPDL 1000. regpdl 10000.)

(PROGN

(defun if macro (l)(cons 'cond (ifxxx1 (cdr l))))

(defun ifxxx1 (u) (cond ((null u) nil) ((null (cdr u)) (list (list t (car u))))
(t (cons (list (car u) (cadr u)) (ifxxx1 (cddr u))))))
	

(FASLOAD DEMON FAS DSK (AID RPG))
(HELP)
(COND ((STATUS NOFEATURES NEWIO)
       (FASLOAD ESCI FAS DSK (MAC LSP))))
(ESCI-ENB)
(APPLY 'CRUNIT (LIST 'DSK (STATUS UDIR)))
(*RSET T)
 T)



;;;((LAMBDA (↑W) (REQUIRE MACLIS INI DSK (/206 CLT)))  T)

;;; The following taken from my lisp.ini file.
(PROGN

(defun if macro (l)(cons 'cond (ifxxx1 (cdr l))))

(defun ifxxx1 (u) (cond ((null u) nil) ((null (cdr u)) (list (list t (car u))))
(t (cons (list (car u) (cadr u)) (ifxxx1 (cddr u))))))
	

(FASLOAD DEMON FAS DSK (AID RPG))
(HELP)
(COND ((STATUS NOFEATURES NEWIO)
       (FASLOAD ESCI FAS DSK (MAC LSP))))
(ESCI-ENB)
(APPLY 'CRUNIT (LIST 'DSK (STATUS UDIR)))
(*RSET T)
 T)



;;;((LAMBDA (↑W) (REQUIRE MACLIS INI DSK (/206 CLT)))  T)